home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / Pocket Forth rel.5 / Source code / applSource / pfOptional.txt < prev    next >
Encoding:
Text File  |  1991-07-07  |  11.9 KB  |  369 lines  |  [TEXT/EDIT]
  1. ; this is: pfOptional.txt  7/4/91  1:08:00AM
  2.  
  3. ; alert color tables
  4.  
  5. .ALIGN 2
  6. RESOURCE    'actb'    257    'About'
  7.     DC.L    $00000000,$00000004    ; Color table for About dialog
  8.     DC.L    $0000B9B3,$F3B4FFFF    
  9.     DC.L    $00019999,$33333333
  10.     DC.L    $00020000,$00000000
  11.     DC.L    $00030000,$00000000
  12.     DC.L    $0004FFFF,$FFFFFFFF
  13.  
  14. .ALIGN 2
  15. RESOURCE    'actb'    258    'Red Alert'
  16.     DC.L    $00000000,$00000004    ; color table for red alert
  17.     DC.L    $0000AAAA,$00000000
  18.     DC.L    $00010000,$00000000
  19.     DC.L    $00020000,$00000000
  20.     DC.L    $00030000,$00000000
  21.     DC.L    $0004FFFF,$FFFFFFFF
  22.  
  23. ; help resources
  24.  
  25. .ALIGN 2
  26. RESOURCE    'hfdr'    59840    ; unsigned -5696
  27.     DC.W    2    ; version
  28.     DC.L    0,0    ; options+ID
  29.     DC.W    1    ; number
  30.  
  31.     DC.W    20,3    ; HMStringResItem
  32.     DC.W    1,16    ; STR# 1, item 18
  33.     DC.W    1,16
  34.     DC.W    1,16
  35.     DC.W    1,16    
  36.  
  37. .ALIGN 2
  38. RESOURCE    'hmnu'    1    'Apple'
  39.     DC.W    2    ; version
  40.     DC.L    0,0    ; options
  41.     DC.W    2    ; number of items+1
  42.  
  43.     DC.W    4,256    ; HMSkipItem for missing & null
  44.  
  45.     DC.W    4,256    ; HMSkipItem for title
  46.  
  47.     DC.W    20,3    ; HMStringResItem
  48.     DC.W    1,1    ; STR# 1, item 1
  49.     DC.W    0,0    ; dimmed menu item
  50.     DC.W    0,0    ;
  51.     DC.W    0,0    ;
  52.  
  53. .ALIGN 2
  54. RESOURCE    'hmnu'    2    'File'
  55.     DC.W    2    ; version
  56.     DC.L    0,0    ; options
  57.     DC.W    9    ; number of items+1
  58.  
  59.     DC.W    4,256    ; HMSkipItem for missing & null
  60.  
  61.     DC.W    20,3    ; HMStringResItem
  62.     DC.W    1,2    ; STR# 1, item 2
  63.     DC.W    0,0    ; dimmed menu title
  64.     DC.W    0,0    ;
  65.     DC.W    0,0    ;
  66.  
  67.     DC.W    20,3    ; HMStringResItem
  68.     DC.W    1,3    ; STR# 1, item 3
  69.     DC.W    0,0    ; dimmed menu item
  70.     DC.W    0,0    ;
  71.     DC.W    0,0    ;
  72.  
  73.     DC.W    4,256    ; HMSkipItem for seperator
  74.  
  75.     DC.W    20,3    ; HMStringResItem
  76.     DC.W    1,4    ; STR# 1, item 4
  77.     DC.W    0,0    ; dimmed menu item
  78.     DC.W    0,0    ;
  79.     DC.W    0,0    ;
  80.  
  81.     DC.W    20,3    ; HMStringResItem
  82.     DC.W    1,5    ; STR# 1, item 5
  83.     DC.W    0,0    ; dimmed menu item
  84.     DC.W    0,0    ;
  85.     DC.W    0,0    ;
  86.  
  87.     DC.W    4,256    ; HMSkipItem for seperator
  88.  
  89.     DC.W    20,3    ; HMStringResItem
  90.     DC.W    1,6    ; STR# 1, item 6
  91.     DC.W    0,0    ; dimmed menu item
  92.     DC.W    0,0    ;
  93.     DC.W    0,0    ;
  94.  
  95.     DC.W    4,256    ; HMSkipItem for seperator
  96.  
  97.     DC.W    20,3    ; HMStringResItem
  98.     DC.W    1,7    ; STR# 1, item 7
  99.     DC.W    0,0    ; dimmed menu item
  100.     DC.W    0,0    ;
  101.     DC.W    0,0    ;
  102.  
  103. .ALIGN 2
  104. RESOURCE    'hmnu'    3    'Edit'
  105.     DC.W    2    ; version
  106.     DC.L    0,0    ; options
  107.     DC.W    7    ; number of items+1
  108.  
  109.     DC.W    4,256    ; HMSkipItem for missing & null
  110.  
  111.     DC.W    20,3    ; HMStringResItem
  112.     DC.W    1,8    ; STR# 1, item 8
  113.     DC.W    0,0    ; dimmed menu title
  114.     DC.W    0,0    ;
  115.     DC.W    0,0    ;
  116.  
  117.     DC.W    20,3    ; HMStringResItem
  118.     DC.W    1,9    ; STR# 1, item 9
  119.     DC.W    0,0    ; dimmed menu item
  120.     DC.W    0,0    ;
  121.     DC.W    0,0    ;
  122.  
  123.     DC.W    4,256    ; HMSkipItem for seperator
  124.  
  125.     DC.W    20,3    ; HMStringResItem
  126.     DC.W    1,10    ; STR# 1, item 10
  127.     DC.W    0,0    ; dimmed menu item
  128.     DC.W    0,0    ;
  129.     DC.W    0,0    ;
  130.  
  131.     DC.W    20,3    ; HMStringResItem
  132.     DC.W    1,11    ; STR# 1, item 11
  133.     DC.W    0,0    ; dimmed menu item
  134.     DC.W    0,0    ;
  135.     DC.W    0,0    ;
  136.  
  137.     DC.W    20,3    ; HMStringResItem
  138.     DC.W    1,12    ; STR# 1, item 12
  139.     DC.W    0,0    ; dimmed menu item
  140.     DC.W    0,0    ;
  141.     DC.W    0,0    ;
  142.  
  143.     DC.W    20,3    ; HMStringResItem
  144.     DC.W    1,13    ; STR# 1, item 13
  145.     DC.W    0,0    ; dimmed menu item
  146.     DC.W    0,0    ;
  147.     DC.W    0,0    ;
  148.  
  149. .ALIGN 2
  150. RESOURCE    'hrct'    128
  151.     DC.W    2    ; version
  152.     DC.L    0,0    ; options+ID
  153.     DC.W    1    ; number of rectangles
  154.  
  155.     DC.W    20,3    ; HMStringResItem
  156.     DC.W    35,55    ;
  157.     DC.W    0,0,1024,1024    ; hot rect
  158.     DC.W    1,14    ; STR# 1, item 14
  159.  
  160. .ALIGN 2
  161. RESOURCE    'hwin'    128
  162.     DC.W    2    ; version
  163.     DC.L    0    ; options
  164.     DC.W    2    ; number of rectangles
  165.  
  166.     DC.W    128    ; ID of hrct
  167.     DC.L    'hrct'
  168.     DC.W    12    ; length of string to compare
  169.     DC.B    12,'Pocket Forth'    ; window name
  170.  
  171. .ALIGN 2
  172. RESOURCE    'hdlg'    257
  173.     DC.W    2    ; version
  174.     DC.W    0    ; start with item 0
  175.     DC.L    0,0    ; options+ID+variation
  176.     DC.W    1    ; number of items
  177.  
  178.     DC.W    4,256    ; HMSkipItem for missing & null
  179.  
  180.     DC.W    20,3    ; HMStringResItem
  181.     DC.W    50,190    ; tip location
  182.     DC.W    0,0,0,0    ; default alternate rect
  183.     DC.W    1,15    ; string for enabled
  184.     DC.W    0,0    ; never dimmed
  185.     DC.W    0,0    ; or checked
  186.     DC.W    0,0    ; or marked either
  187.     
  188. .ALIGN 2
  189. RESOURCE    'STR#'    1
  190.     DC.W    16    ; number of strings
  191.  
  192.     ; item 1
  193.     DC.B    67,'Introduces the author and gives information '
  194.     DC.B    'about the application. '
  195.  
  196.     ; item 2
  197.     DC.B    122,'File menu',13,13,'Items in this menu select, '
  198.     DC.B    'save, and print Pocket Forth programs.  You can '
  199.     DC.B    'also debug and quit the application.'
  200.  
  201.     ; item 3
  202.     DC.B    213,'Displays a dialog box that allows you to select '
  203.     DC.B    'a text document.',13,13,'If the document contains a '
  204.     DC.B    'Pocket Forth program, it will be interpreted.  If '
  205.     DC.B    'the document is not a program, an interpreter error '
  206.     DC.B    'will be displayed.'
  207.  
  208.     ; item 4
  209.     DC.B    171,'        CAUTION:',13,'Use only on a copy of '
  210.     DC.B    'Pocket Forth!',13,13,'All changes you have made to '
  211.     DC.B    'the Pocket Forth application will be made permanent.'
  212.     DC.B    '  Opened documents are not effected.'
  213.  
  214.     ; item 5
  215.     DC.B    254,'              DANGER!',13,'Do not release the '
  216.     DC.B    'button!',13,13,'Unless you have installed a '
  217.     DC.B    'debugging application you will get a bomb box!  '
  218.     DC.B    'You can then use the "Resume" (or "Continue") '
  219.     DC.B    'button to quit.',13,13,'A debugger, such as TMON, '
  220.     DC.B    'Macsbug, etc., is entered if installed.'
  221.  
  222.     ; item 6
  223.     DC.B    101,'Beep the speaker.',13,13,'The Print command is '
  224.     DC.B    'here as a required Apple Event.  Nothing is '
  225.     DC.B    'actually printed.'
  226.  
  227.     ; item 7
  228.     DC.B    137,'Quit the Pocket Forth application without '
  229.     DC.B    'fanfare.  Unless you have Saved prior to Quitting, '
  230.     DC.B    'all additions and changes will be disgarded.'
  231.  
  232.     ; item 8
  233.     DC.B    133,'Edit menu',13,13,'Most of these items are for use '
  234.     DC.B    'with desk accessories on older systems.',13,13
  235.     DC.B    'Also, you can paste a program into Pocket Forth. '
  236.  
  237.     ; item 9
  238.     DC.B    39,'Nothing can be Undone, this just beeps.'
  239.  
  240.     ; item 10
  241.     DC.B    42,'You cannot Cut anything.  This just beeps.'
  242.  
  243.     ; item 11
  244.     DC.B    70,'Since there is nothing to Copy, this just beeps.'
  245.     DC.B    13,13,'Is this getting old?'
  246.  
  247.     ; item 12
  248.     DC.B    162,'Interprets a Pocket Forth program from the '
  249.     DC.B    'clipboard as if you had typed it in.  If the '
  250.     DC.B    'clipboard contains text that is not a program, an '
  251.     DC.B    'error will be indicated.'
  252.  
  253.     ; item 13
  254.     DC.B    43,'There is nothing to Clear, this just beeps.'
  255.  
  256.     ; item 14
  257.     DC.B    142,'Console Window.',13,13,'Type or paste Pocket '
  258.     DC.B    'Forth ‘words’ into this window.  The text is interpreted '
  259.     DC.B    'after each line and any output is printed here.'
  260.  
  261.     ; item 15
  262.     DC.B    179,'Pocket Forth is FREE!',13
  263.     DC.B    13,'Contact me at any of the following addresses:'
  264.     DC.B    13,'  CompuServe  [70566,1474]'
  265.     DC.B    13,'  Bitnet  heilman@pc',13,'  US Mail  85066-8345'
  266.     DC.B    13,13,'Click this window to close this dialog.'
  267.  
  268.     ; item 16
  269.     DC.B    189,'Pocket Forth',13,13
  270.     DC.B    'Pocket Forth is a programming language for any '
  271.     DC.B    'Macintosh.  Use this application to create other '
  272.     DC.B    'applications.',13,13,'Double click on this icon '
  273.     DC.B    'to enter the Pocket Forth environment.'
  274.  
  275. ; color & small icons
  276.  
  277. .ALIGN 2
  278. RESOURCE    'ics#'    128
  279.     DC.L    $000F00FD,$017E0F7E,$71278117,$80A180F6
  280.     DC.L    $808C8087,$80808088,$D51CBD1C,$C27E1BF8
  281.     DC.L    $000F00FD,$017E0F7E,$7F3FFF1F,$FFBFFFFF
  282.     DC.L    $FF8FFF87,$FF80FF88,$FF1CFF1C,$C27E1BF8
  283.  
  284. .ALIGN 2
  285. RESOURCE    'icl4'    128
  286.     DC.L    $00000000,$00000000,$00000000,$00055550,$00000000,$00000000,$00000000,$05555055
  287.     DC.L    $00000000,$00000000,$00000000,$55550055,$00000000,$00000000,$00555505,$55550000
  288.     DC.L    $00000000,$00000000,$55555555,$55555000,$00000000,$00000000,$50055555,$55555000
  289.     DC.L    $00000000,$00000000,$00005555,$55555500,$00000000,$FFFFFFFF,$00055101,$05555500
  290.     DC.L    $0000FFFF,$0000000F,$000550FF,$F0555550,$0FFF0000,$0CCCCCDF,$00050F00,$DD015550
  291.     DC.L    $F0000CCC,$CCCCCCDF,$000000EE,$00D01555,$F0CCCCCC,$CCCCCCCD,$F0000FFE,$00310105
  292.     DC.L    $F0CCCCCC,$CCCCCCCD,$F000F01F,$F3101015,$F0CCCCCC,$CCCCCCCD,$F00F0101,$F1212121
  293.     DC.L    $F0CCCCCC,$CCCCCCCD,$F00FFFF0,$12121212,$F0CCCCCC,$CCCCCCCD,$F000000F,$212FF121
  294.     DC.L    $F0CCCCCC,$CCCCCCCD,$F0000000,$FFF21212,$F0CCCCCC,$CCCCCCCD,$F0000000,$0F21212F
  295.     DC.L    $F0CCCCCC,$CCCCCCCD,$F0000000,$00FFFFF0,$F0CCCCCC,$CCCCCCCC,$DF000000,$00000000
  296.     DC.L    $F0CCCCCC,$CCCCCCCC,$DF000000,$00000000,$F0CCCCCC,$CCCCCCCC,$DF000000,$00000000
  297.     DC.L    $F0CCCCCC,$CCCCCCCD,$DF000000,$00000000,$F0DDDDDD,$DDDDDDDD,$FF000000,$FD000000
  298.     DC.L    $F0DDDDDD,$DDDDDDDF,$0000000F,$EED00000,$F0DDDDDD,$DDDDDDDF,$0000000F,$CCE00000
  299.     DC.L    $FFFDFFFF,$FFFFFFDF,$0000000D,$CCE00000,$00FFF000,$000000FF,$000000FD,$EEEE0000
  300.     DC.L    $F0000000,$00000000,$000FDDDE,$E13FEF00,$000F0000,$00000000,$00FDDEDE,$EEAEF000
  301.     DC.L    $000000F0,$00000000,$00EEEEEE,$EF000000,$00000000,$0F00F00F,$0FFFFFFF,$00000000
  302.  
  303. .ALIGN 2
  304. RESOURCE    'ics4'    128
  305.     DC.L    $00000000,$00005555,$00000000,$55555505
  306.     DC.L    $00000005,$05555550,$0000FFFF,$055FF550
  307.     DC.L    $0FFF000F,$00F00F55,$F000CCDF,$000F0F55
  308.     DC.L    $F0CCCCCD,$F0F01215,$F0CCCCCD,$FFFF2FF1
  309.     DC.L    $F0CCCCCD,$F000FF12,$F0CCCCCD,$F0000FFF
  310.     DC.L    $F0CCCCCD,$F0000000,$F0CCCCCD,$F000D000
  311.     DC.L    $F0CDCDDF,$000DCD00,$F2DCDCDF,$000DCD00
  312.     DC.L    $FF0000F0,$0CDE3EF0,$000EE0EE,$EEEEE000
  313.  
  314. .ALIGN 2
  315. RESOURCE    'icl8'    128
  316.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$000000AB,$ABABAB00
  317.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00ABABAB,$AB00ABAB
  318.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$ABABABAB,$0000ABAB
  319.     DC.L    $00000000,$00000000,$00000000,$00000000,$0000ABAB,$ABAB00AB,$ABABABAB,$00000000
  320.     DC.L    $00000000,$00000000,$00000000,$00000000,$ABABABAB,$ABABABAB,$ABABABAB,$AB000000
  321.     DC.L    $00000000,$00000000,$00000000,$00000000,$AB0000AB,$ABABABAB,$ABABABAB,$AB000000
  322.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$ABABABAB,$ABABABAB,$ABAB0000
  323.     DC.L    $00000000,$00000000,$FFFFFFFF,$FFFFFFFF,$000000AB,$AB010101,$01ABABAB,$ABAB0000
  324.     DC.L    $00000000,$FFFFFFFF,$01010101,$010101FF,$000000AB,$AB01FFFF,$FF01ABAB,$ABABAB00
  325.     DC.L    $00FFFFFF,$01010101,$01080808,$080833FF,$000000AB,$00FF0000,$33330101,$ABABAB00
  326.     DC.L    $FF010101,$01080808,$08080808,$080833FF,$00000000,$0000A5A5,$00003301,$01ABABAB
  327.     DC.L    $FF010808,$08080808,$08080808,$08080833,$FF000000,$00FFFFA5,$0000D801,$010101AB
  328.     DC.L    $FF010808,$08080808,$08080808,$08080833,$FF000000,$FF0101FF,$FFD80101,$010101AB
  329.     DC.L    $FF010808,$08080808,$08080808,$08080833,$FF0000FF,$01010101,$FF010808,$08080101
  330.     DC.L    $FF010808,$08080808,$08080808,$08080833,$FF0000FF,$FFFFFF01,$01080808,$08080808
  331.     DC.L    $FF010808,$08080808,$08080808,$08080833,$FF000000,$000000FF,$080808FF,$FF080808
  332.     DC.L    $FF010808,$08080808,$08080808,$08080833,$FF000000,$00000000,$FFFFFF08,$08080808
  333.     DC.L    $FF010808,$08080808,$08080808,$08080833,$FF000000,$00000000,$00FF0808,$080808FF
  334.     DC.L    $FF010808,$08080808,$08080808,$08080833,$FF000000,$00000000,$0000FFFF,$FFFFFF00
  335.     DC.L    $FF010808,$08080808,$08080808,$08080808,$33FF0000,$00000000,$00000000,$00000000
  336.     DC.L    $FF010808,$08080808,$08080808,$08080808,$33FF0000,$00000000,$00000000,$00000000
  337.     DC.L    $FF010808,$08080808,$08080808,$08080808,$33FF0000,$00000000,$00000000,$00000000
  338.     DC.L    $FF010808,$08080808,$08080808,$08080833,$33FF0000,$00000000,$00000000,$00000000
  339.     DC.L    $FF01F9F9,$F9F9F9F9,$F9F9F9F9,$F9F93333,$FFFF0000,$00000000,$FBF90000,$00000000
  340.     DC.L    $FF01F9F9,$F9F9F9F9,$F9F9F9F9,$F9F933FF,$00000000,$000000FB,$FBFBF900,$00000000
  341.     DC.L    $FF013333,$33333333,$33333333,$333333FF,$00000000,$000000FB,$F6F6FB00,$00000000
  342.     DC.L    $FFFFFF33,$FFFFFFFF,$FFFFFFFF,$FFFF33FF,$00000000,$000000F9,$F6F6FB00,$00000000
  343.     DC.L    $0000FFFF,$FF000000,$00000000,$0000FFFF,$00000000,$0000FFF9,$FBFBFBFB,$00000000
  344.     DC.L    $FF000000,$00000000,$00000000,$00000000,$000000FF,$F9F9F9FB,$FB05D8FF,$FBFF0000
  345.     DC.L    $000000FF,$00000000,$00000000,$00000000,$0000FFF9,$FAFBFAFB,$FBFBFDFB,$FF000000
  346.     DC.L    $00000000,$0000FF00,$00000000,$00000000,$0000FBFB,$FBFBFBFB,$FBFF0000,$00000000
  347.     DC.L    $00000000,$00000000,$00FF0000,$FF0000FF,$00FFFFFF,$FFFFFFFF,$00000000,$00000000
  348.  
  349. .ALIGN 2
  350. RESOURCE    'ics8'    128
  351.     DC.L    $00000000,$00000000,$00000000,$B0B0B0B0
  352.     DC.L    $00000000,$00000000,$B0B0B0B0,$B0B000B0
  353.     DC.L    $00000000,$000000EC,$00B0B0B0,$B0B0B000
  354.     DC.L    $00000000,$FFFFFFFF,$00B0B0FF,$FFB0B000
  355.     DC.L    $00FFFFFF,$010101FF,$0000FF00,$00FFB0B0
  356.     DC.L    $FF010101,$010833FF,$000000FF,$00FFB0B0
  357.     DC.L    $FF010808,$08080833,$FF00FF01,$010808B0
  358.     DC.L    $FF010808,$08080833,$FFFFFFFF,$08FFFF08
  359.     DC.L    $FF010808,$08080833,$FF000000,$FFFF0808
  360.     DC.L    $FF010808,$08080833,$FF000000,$00FFFFFF
  361.     DC.L    $FF010808,$08080833,$FF000000,$00000000
  362.     DC.L    $FF010808,$08080833,$FF000000,$FB000000
  363.     DC.L    $FF01FAFA,$FAFA33FF,$000000FB,$2BFB0000
  364.     DC.L    $FF013333,$333333FF,$000000FB,$2BFB0000
  365.     DC.L    $FFFF0000,$0000FF00,$00FBF9FB,$D8FBFF00
  366.     DC.L    $000000FB,$FB00FBFB,$FBFBFBFB,$FB000000
  367.  
  368.     END
  369.